home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / t_os / gpen32k / source / lib / osrc / menumix.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-06-01  |  4.3 KB  |  224 lines
  1. /*
  2.             Towns Menu-Bar   ver. 0.001
  3.             各色画面モード対応
  4.                             Copyright(C) 1993 Okome
  5. */
  6.  
  7. #include <string.h>
  8. #include <EGB.H>
  9. #include <MOS.H>
  10. #include <sidework.h>
  11. #include <normlib.h>
  12. #include <okome.h>
  13. #include <col.h>
  14.  
  15. extern char work[];
  16. extern char *MEN_title[];
  17. extern int MEN_kazu[];
  18. static int mex[16], mel[16], ebf;
  19.     int MEN_si=0, MEN_ss;
  20.  
  21. static int ml( int i )
  22. {
  23.     int k, l=0;
  24.     for (k=0; k<=i; k++)
  25.         l+=MEN_kazu[k];
  26.     return (l);
  27. }
  28.  
  29. static int ubs( int i, int m )
  30. {
  31.     static int j=-1, n=0;
  32.     int k, l;
  33.     if (j != i)
  34.     {
  35.         if (j >= 0)
  36.         {
  37.             ubox2( mex[j], 0, mex[j+1]-1, 19, cl15, cl8 );
  38.             OKM_gth(mex[j],20,mex[j]+mel[j],23+MEN_kazu[j+1]*16,0);
  39.         }
  40.         j = i;
  41.         n = 0;
  42.         if (i >= 0)
  43.         {
  44.             ubox2( mex[i], 0, mex[i+1]-1, 19, colorch[1+(i==0)*7], colorch[1+(i==0)*7] );
  45.             OKM_gth(mex[j],20,mex[j]+mel[j],23+MEN_kazu[j+1]*16,1);
  46.             boxbf( mex[i], 20, mex[i]+mel[i]-2, 21+MEN_kazu[i+1]*16, cl8, cl15 );
  47.             boxb( mex[i], 20, mex[i]+mel[i]-1, 22+MEN_kazu[i+1]*16, cl8 );
  48.             boxb( mex[i], 20, mex[i]+mel[i], 23+MEN_kazu[i+1]*16, cl8 );
  49.             l = ml(i);
  50.             for (k=0; k<MEN_kazu[i+1]; k++)
  51.             {
  52.                 font12( mex[i]+8, 34+k*16, MEN_title[l+k], cl8 );
  53.             }
  54.         }
  55.     }
  56.     if ( i>=0 )
  57.     {
  58.         if ( m!=n )
  59.         {
  60.             EGB_writeMode( work, 4 );
  61.             if (n>0)
  62.             {
  63.                 boxf( mex[i]+1, n*16+5, mex[i]+mel[i]-3, n*16+20, cl15^cl8 );
  64.             }
  65.             if (m>0)
  66.             {
  67.                 boxf( mex[i]+1, m*16+5, mex[i]+mel[i]-3, m*16+20, cl15^cl8 );
  68.             }
  69.             EGB_writeMode( work, 0 );
  70.             n = m;
  71.         }
  72.         if (m > 0)
  73.         {
  74.             if (i==0 && MEN_si<m && MEN_si+MEN_ss-1>m)
  75.             {
  76.                 sdk_chain(m-MEN_si);
  77.                 return (8000+m-MEN_si);
  78.             }    else    {
  79.                 return (i*100+m);
  80.             }
  81.         }
  82.     }
  83.     return (0);
  84. }
  85.  
  86. static int menx(int mx)
  87. {
  88.     int i = 1;
  89.     while ( mex[i] <= mx )
  90.         i++;
  91.     return (i-1);
  92. }
  93.  
  94. static int mebox( int mb, int k )
  95. {
  96.     int i = 0, j, mx, my, l;
  97.     l = k*23;
  98.     while (mb != 0)
  99.     {
  100.         MOS_rdpos( &mb, &mx, &my );
  101.         j=i;
  102.         i = ( mx >= 610-l && mx <=629-l && my < 20 ) ? 1 : 0 ;
  103.         if (j!=i)
  104.         {
  105.             MOS_disp( 0 );
  106.             ubox2( 610-l, 0, 629-l, 19, colorch[15-i*7], cl8 );
  107.             MOS_disp( 1 );
  108.         }
  109.     }
  110.     MOS_disp( 0 );
  111.     ubox2( 610-l, 0, 629-l, 19, cl15, cl8 );
  112.     MOS_disp( 1 );
  113.     return (i);
  114. }
  115.  
  116. int MEN_menu( int mb, int mx, int my )
  117. {
  118.     int p, i, r = 0, j = -1, z = 1, mb2;
  119.     p = EGB_getWritePage( 0, 0 );
  120.     EGB_writePage( work, 0 );
  121.     if ( mb && mex[MEN_kazu[0]] > mx && my < 20 )
  122.     {
  123.         while ( z != 0 )
  124.         {
  125.             mb2 = mb;
  126.             MOS_rdpos( &mb, &mx, &my );
  127.             if ( mex[MEN_kazu[0]] > mx && my < 20 )
  128.             {
  129.                 if ( mb )
  130.                 {
  131.                     i = menx(mx);
  132.                     if ( j!=i || r )
  133.                     {
  134.                         MOS_disp( 0 );
  135.                         r = ubs( i, 0 );
  136.                         MOS_disp( 1 );
  137.                         j = i;
  138.                     }
  139.                     z = 2;
  140.                 }    else    {
  141.                     z = 1;
  142.                 }
  143.             }
  144.             if ( mex[j] <= mx && mex[j]+mel[j] >= mx &&
  145.                  20 < my && my < 21 + MEN_kazu[j+1] * 16 )
  146.             {
  147.                 if (mb!=0)
  148.                 {    /*    SUB menuの処理    */
  149.                     i = (my - 21) / 16;
  150.                     MOS_disp( 0 );
  151.                     r = ubs( j, i+1 );
  152.                     MOS_disp( 1 );
  153.                     z = 3;
  154.                 }    else    {
  155.                     if ( z==3 && mb2 )
  156.                     {
  157.                         z = 0;
  158.                     }
  159.                     if ( z==2 )
  160.                     {
  161.                         z = 1;
  162.                     }
  163.                 }
  164.             }    else    {
  165.                 if ( z==3 && mb)
  166.                 {
  167.                     MOS_disp( 0 );
  168.                     r = ubs(j, 0);
  169.                     MOS_disp( 1 );
  170.                     z = 4;
  171.                 }
  172.                 if ( (mex[MEN_kazu[0]] > mx && my < 20)==0 )
  173.                 {
  174.                     if (((z==1) && mb) || ((z==2 || z==4) && mb==0))
  175.                     {
  176.                         z = 0;
  177.                     }
  178.                 }
  179.             }
  180.         }
  181.         MOS_disp( 0 );
  182.         ubs( -1, 0 );
  183.         MOS_disp( 1 );
  184.         do    {
  185.             MOS_rdpos( &mb, &mx, &my );
  186.         }    while( mb != 0 );
  187.     }    else    {
  188.         if ( mx >= 633-23*ebf && mx <= 629 && my < 20 && (629-mx) % 23 < 20)
  189.         {    /*    ENDボタン    */
  190.             i = (629-mx) / 23;
  191.             if (mebox( mb, i ))
  192.                 r = 9999 - i;
  193.         }
  194.     }
  195.     EGB_writePage( work, p );
  196.     return (r);
  197. }
  198.  
  199. void MEN_set( int b )
  200. {
  201.     int i, j=0, k, l;
  202.     boxbf( 0, 0, 639, 19, cl0, cl7 );
  203.     ebf = b;
  204.     for (i = 0; i < MEN_kazu[0]; i++)
  205.     {
  206.         j += strlen(MEN_title[i])*6+34;
  207.         mex[i+1] = j;
  208.         boxf( mex[i], 0, j-1, 19, colorch[1+(i==0)*7] );
  209.         ubox2( mex[i], 0, j-1, 19, cl15, cl8 );
  210.         font12( mex[i]+13, 16, MEN_title[i], cl15 );
  211.         l = ml(i);
  212.         for (k=0; k<MEN_kazu[i+1]; k++)
  213.         {
  214.             if ( strlen(MEN_title[l+k])*6+16 > mel[i] )
  215.                 mel[i] = strlen(MEN_title[l+k])*6+18;
  216.         }
  217.     }
  218.     for (i = 0; i < b; i++)
  219.     {
  220.         boxf( 610-i*23, 0, 629-i*23, 19, cl8 );
  221.         ubox2( 610-i*23, 0, 629-i*23, 19, cl15, cl8 );
  222.     }
  223. }
  224.